home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Original Shareware 1.1
/
The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso
/
32
/
anagram.zip
/
ANA.C
next >
Wrap
Text File
|
1986-05-26
|
1KB
|
53 lines
#include <stdio.h>
main()
{
char alph_symb[129];
int alph_len;
puts("Enter Begining Word: ");
gets(alph_symb);
alph_len = strlen(alph_symb);
rot_symb(alph_symb,0,alph_len,1);
exit();
}
rot_symb(alph_pass,start,end,ft_sw)
char *alph_pass;
int start,
end,
ft_sw;
{
char work_symb[129],
x;
register int i,
j;
if (start < (end - 1))
{
strcpy(work_symb,alph_pass);
for (i = start; i < end; i++)
{
/* printf("wk= %s , al= %s, ft= %d \n",work_symb,alph_pass,ft_sw); */
if (strcmp(work_symb,alph_pass) != 0)
{
puts(work_symb);
rot_symb(work_symb,(start + 1),end,0);
}
else
{
if (ft_sw == 1)
{
puts(work_symb);
};
rot_symb(work_symb,(start + 1),end,0);
};
x = work_symb[start];
for (j = start; j<(end-1); j++)
{
work_symb[j] = work_symb[j+1];
};
work_symb[end-1] = x;
};
};
}